home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / REMOVE FLEX TYPE.bas < prev    next >
BASIC Source File  |  2000-01-01  |  709b  |  22 lines
  1. 10  REM REMOVE FLEX TYPE
  2. 20  TEXT : HOME : PRINT  CHR$(4)"NOMONICO"
  3. 30  IF  PEEK(978) >189  THEN 140
  4. 40  POKE 40193,156: CALL 42964
  5. 50  POKE 1005,234
  6. 60  POKE 1010,191: POKE 1011,157: POKE 1012,56
  7. 70  POKE 1013,76: POKE 1014,88: POKE 1015,255
  8. 80  POKE 1016,76: POKE 1017,101: POKE 1018,255
  9. 90  POKE 973,0
  10. 100  CALL  -365: CALL  -375
  11. 110  CALL 1002
  12. 120  PRINT  CHR$(4)"FP"
  13. 130  END 
  14. 140  FOR I = 768 TO 792: READ V: POKE I,V: NEXT I
  15. 150  DATA 44,131,192,44,131,192,169,190,141,90,247,44,130,192,173,0,224,201,76,240,3,44,128,192,96
  16. 160  IF  PEEK(978) < >191  THEN 190
  17. 170  POKE 49150,175: POKE 49151,190
  18. 180  GOTO 70
  19. 190  CALL 768
  20. 200  POKE 1005,234
  21. 210  POKE 1010,174: POKE 1011,190: POKE 1012,27
  22. 220  GOTO 70